home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-04d.zip / 04d / Hity z okladki / Plus Firma / AccessRT / Office1.cab / SERVWRAP.ASP < prev    next >
Text File  |  2003-10-09  |  593b  |  22 lines
  1. <%
  2. Set objData = Server.CreateObject("MSXML.DOMDocument")
  3. objData.async = false
  4.  
  5. if (|0) then
  6.     Set objDataXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")
  7.     objDataXMLHTTP.open "GET", "|1", false 
  8.     objDataXMLHTTP.setRequestHeader "Content-Type", "text/xml"
  9.     objDataXMLHTTP.send
  10.     objData.load(objDataXMLHTTP.responseBody)
  11. else
  12.     objData.load(Server.MapPath("|2"))
  13. end if
  14.  
  15. Set objStyle = Server.CreateObject("MSXML.DOMDocument")
  16. objStyle.async = false
  17. objStyle.load(Server.MapPath("|3"))
  18.  
  19. Response.ContentType = "text/html"
  20. Response.Write objData.transformNode(objStyle)
  21. %>
  22.